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! Pj^JUcboJI ol3i\JI . JojjjUU OJjJjj ^LQj^UjO O^LlC ^uolijjJI ljui> 

, j\jj\ 1 , Timerl ^scuoj 093 o gb jaj Standard.exe jujc> ts>^ 

Microsoft Common Dialog Control 6.0 jjs> I Ctrl+T ,_sdc .kab^ Textl ^ gj^jo 
qsLbVs WebBrowserl < CommonDialogl g^/>J . Microsoft Internet Controls < 
/>^_juli\JI 3 Caption ccjlb- <^S u[9jaJI < t juSj j\^> gj>o >g-k*-9 Ctrl + E ^jvlc Joabii > oJl^_aJI 
(cL_»x.jS cljoJUlI) _;Lbb>l qslbj Jujj L5 ISI3 Name ciwpbaJI i_s^9 hjoJlaJU i_so<jojjJI 

ojujj lSjJI ^LabAJI Shortcut ^JjuuuuuoJI ^coJUlII qjo 


Menu Editor 


** ♦ ** . ** 

Aj£> jfl A_4 jL£ 


Caption: | File 
Name: 

Index: 


OK 


mnufile 


Caned/' 


Shortcut: [(None) [▼] 

HelpContextlD: [o NegotiatePosition: [p - None ^ | 

Checked W Enabled I* Visible 

Insert 


±1 


Next 


r WindowList 
Delete 


jLualkVl 


File 


New 

•■■•New Window 
Open 

Save 
Save As 

Print 

Print Preview 

v 


i^cxjl^-oj I ClJLovSu 




































































! ^_svJL»lx> £l*ju JjcxaJI ljui> -Xsl/3 



: Form Load ^j\)\ i^SJI 

Private Sub Form_Load() 

On Error Resume Next 
Timer2.l nterval=5 
Timer2.Enabled = True 
If Len(Textl)>0 then 
WebBrowser]..Navigate Textl 
End if 
End Sub 

: Timerl_Timer Jl ^ s^l ^SJI 

Private Sub Timer2_Timer() 

If WebBrowser]..Busy = False Then Timer2.Enabled = False 
If WebBrowser]..Busy = True Then Me.Caption="...Working" 

End Sub 


































: "GO" jjJJ I i>_aa5u3 


Private Sub cmdgo_Click() 

If Len(Textl.Text) > 0 Then 
WebBrowser]..Navigate Textl.Text 
Else 

WebBrowserl.Stop 

MsgBox pjovjJ Jj>^t cL>j", vbOKOnly, "Simple Browser" 

Textl.SetFocus 
End If 
End Sub 

: "Refresh" jjJJ ^svAJI ^^SJI 

Private Sub cmdrefresh_Click() 

WebBrowserl. Refresh 
End Sub 

: "Stop" jjJJs 

Private Sub cmdstop_Click() 

WebBrowserl.Stop 
End Sub 

: "Home"jjJU3 

Private Sub cmdhome_Click() 

WebBrowserl.Navigate " www.Google.com " 

Textl.Text = " www.Google.com " 

End Sub 

: "Back" ^3 

Private Sub cmdback_Click() 

On Error Resume Next 
WebBrowserl. GoBack 
End Sub 

: "Forward" jjJJs 

Private Sub cmdforward_Click() 

On Error Resume Next 
WebBrowserl. GoForward 
End Sub 

: Textl Click ^ 3 !% 

Private Sub Textl_Click() 

Timer2.Enabled = True 
End Sub 

: Textl_ KeyPress ^ 3^13 

Private Sub Textl_KeyPress(KeyAscii As Integer) 

On Error Resume Next 
If KeyAscii = 13 Then cmdgo_Click 
End Sub 



: pjoJUUI ^jjo New jjo\U 


Private Sub mnuwindow_Click() 

On Error Resume Next 
Static Idocument As Long 
Dim brm As Form 
Idocument = Idocument + 1 
Set brm = New Forml 
brm.Show 
brm.SetFocus 
End Sub 

: Open^jlls 

Private Sub mnuopen_Click() 

CommonDialogl.Filter="AII Internet Files|*.html;*.htm;*.shtml;*.dhtml;*.js|" 

CommonDialogl.ShowOpen 

If CommonDialogl.FileName = "" Then Exit Sub 

WebBrowserl.Navigate (CommonDialogl.FileName) 

End Sub 

: Savers 

Private Sub mnusave_Click() 

WebBrowserl.ExecWB OLECMDID SAVEAS, OLECMDEXECOPT_DODEFAULT 
End Sub 

: Print jjJU 3 

Private Sub mnuprint_Click() 

WebBrowserl. SetFocus 
On Error Resume Next 

WebBrowserl.ExecWB OLECMDID PRINT, OLECMDEXECOPT DODEFAULT 
End Sub 

: PrintPreview jjJJ$ 

Private Sub mnuprintprivew_Click() 

WebBrowserl. SetFocus 
On Error Resume Next 

WebBrowserl.ExecWB olecmdid_printprivew,olecmdexecopt_dodefault 
End Sub 

: properties jjJJ$ 

Private Sub mnuproperties_Click() 

WebBrowserl. SetFocus 
On Error Resume Next 

WebBrowserl.ExecWB olecmdid_properties,olecmdexecopt_dodefault 
End Sub 



: offline ^3 


Private Sub mnuworkoff_Click() 

On Error Resume Next 

If mnuworkoff.Checked = True Then 

mnuworkoff. Checked = True 

mnuworkon. Checked = False 

WebBrowser]..Offline = True 

Elself mnuworkoff.Checked = False Then 

mnuworkoff.Checked = True 

mnuworkon.Checked = False 

WebBrowser]..Offline = True 

End If 

End Sub 

: online jjJJ$ 

Private Sub mnuworkon_Click() 

On Error Resume Next 

If mnuworkon.Checked = True Then 

mnuworkon.Checked = True 

mnuworkoff.Checked = False 

WebBrowser]..Offline = False 

Elself mnuworkon.Checked = False Then 

mnuworkon.Checked = True 

mnuworkoff.Checked = False 

WebBrowser]..Offline = False 

End If 

End Sub 

: exitjjJUs 

Private Sub mnuexit_Click() 

Dim tip As I nteger 

tip = MsgBoxC'S^^pJI ju^ Ja", vbQuestion+vbYesNo, "Simple Browser") 

If tip = vbYes Then 

End 

Elself tip = vbNo Then 

Cancel = 1 

Exit Sub 

End If 

End Sub 



. JqjjujuJI UjL*xxJI gjolijj JLuO CH 0 <jL? J CUJ 1 >C 6jLc guolijjJI 

c 

6 JL-C.U cLuulJ|" ^uoLijjJI jLuulj ( j_jO /yj JuJc> v-aJLo cLoJlS ,jjO (JjOjjuoS^I QLsu 

\IjLjO ^jJXjua-jiS 6 Jl_cLqJI C)LSu 03 /> _«djl LuO X_jJLlaj jlcp>- g-J^jO "cLC_;l9 obLj 

: i_svJLLo cLiuj ^^vJLc Joa^gj /xj "ujbajoJI" 



: ^svJLLcxj cUxaij />3aJ 6-X9li _>#Jgl9 • l _5\JLc. JoaJaj /xj 


OULyJI £c. 


Ji'-sJI /XjujI 



gjo^uJI uijldi jo 3 j 



oLsjjjoJI 



gju^LoJI 


/ lc LobljJi9\JI PjcxjjjJI"(^sx9 i<pr<^o Lo £uuuuoJ "/x9j" O LiLJI ^3 j jLiti LoJulC !^h>\Lo 

c 

v_j_i5u3 /xaJ (_svJLc JaaJaiS J 3 Jc?JI Jaj_> JujJ LS li| LJLuuu cULujj j^JtuS 6jjLJI (jjlaj /xj 

c c 

c Lmj._ 1 1 jj_£ LJ L*jli _i I cj1_ <ujj j p lo'iQ t 3 _ 913 J 0 iaaJai 3 "Stores" J 3 Jc*JU /xjujI 

c c "" c 

JaaJaJ . J3-X_aJI Lg_J{ _L_9 cLqjLuoJI OjC^aJI uLj u5^i9 ,\J Jaa^uS i_sxjjjLjuI ^Lsjo 

: ^sxLLcxS oULJI cLL^aij /y^sii J3Jc*JI j^-Lu.9 (JjJjjo S4-C 



oIsjuuoJI 



c 

^bcjuoJI yJO uUbl 0 

uSVAjuiJUOjJI 

I0ITI0 

yJaiJI yjo uLbl Y 

oLuJaJJI 

Y“l ) o£A 

£IajJI yjo uLbl £ 

cljUCp^jJI 


l_X_»J 3 dJLua_«j JI 3 >*<?)! ^uoLijj ^u_oJ /x_J ^uoLjjj ,3 1 7)3 iJ 3 _X_ 2 »JI l^i /X.J 

— c 

!/3j3aJI (_SvJLc I ol 3 ^\J| JuJC> i_SX-*JL»L 9 f 3 )-juUUOU 










































6b\JI j. js >I /y j Ctrl+T Jos_bj i _/Lo ^ljuj oj /> 93 Label 0I3 lc o^l T 

Jog-^ol /xj- 6b\JI ijo . />j$iJI ^vJLc L^b3 Microsoft ADO Data Control 6.0(OLEDB) 

"General" ^-9 jls_^> s^>o p-tus u^U. ^Jl ^-9 "Custom" ^_Lc 

v-ji—h^aJI ^-9 j\$-> s^jjo ^ ku3 "Build" ^s^JLc to? bl /Li "Use Connection String" 
"JLajI" /Li "Microsoft Jet 4.0 OLE DB Provider"^! ">3*JI" 

c 

JojjJI (jjo J^LJU "JLbiVI jLl>-I" l _svJLc Jo-Lb I /xi oliLJI 6 Jlc 19 ulSuo iJc>3 

^ji_j3jjJI ^jsJLc Jag-jbl /xJ ^_9_9 I^jo ^jsJLc Jos2_bl /x_i JL^a_i\JI ^L^ju Jtij—dzj AJl_ ujj dJU 

( j_o />_J "2 - adCmdTable" command type o-^° /^J "RecordSource" 

UbLuj oLyo^uj ySjJI "Stores" J3A2JI /^l Table or Stored Procedure Name 

C C 

Aj_^)LJI ^jv—lj t-j—diil /^_i ^5^3^11 0I3 ;gJI 6bl u\JI j—^>\ . OK ( _sv_JLc JasLbl 

j-i>\ /L "sju^ljoJI" >^>13 "DataField" A^bdl ^jJj/Li Adodcl >^>13 "DataSource" 
u^uLjij AjJLJI 6L\JI 3 "oUyyoJI" >3-1 "DataField" jic ^J 3 ^J 3 Si\ ^3 AjLJI 6b\JI 


J_aJ . c CjjJ> 3 £yoLijjJI JLjjj ."gjL^a-oJI uijLdi /xJj" "DataField" JiiC J-o^zJI 

Adodcl 6 b\ll cLl>| jl_> c^jS lil IsLo ,j_SJ ^Is-SI 03 JLJ I v ^ JjcxsJI uL o-L.>\I 
/x _93 False ysx_d> Adodcl 6 b\JU Visible Ay^)l> J_2>l LUjJ LLouax^aj o-f jL>I 8^99 

1 ySxJ LJI Jj*UuUl 11 1 J —? 1 * J ' J O 31 i_sd | /X^Uajj(X_ajJU JJ-C _/OU fi j 3 -®J I ,<xJLc ;l,,l Asl/jI gb<^j 

! (^SxLLo (_aa 5 I 3 JjSumJ J 3 I jj l _sxlc JoLbl .">>\JI J^juJI" ( "^gjLudJI J^uuuJI" 


Private Sub Commandl_Click() 

On Error Resume Next 
Adodcl. Recordset. MoveFirst 
End Sub 

! i_5xij to I ysJ LI I JjSuujJ I J/JU3 

Private Sub Command2_Click() 

On Error Resume Next 
Adodcl. Recordset. MoveNext 
End Sub 

! l_ 5 xJb to X-Jui S I t Q J LuJ I J^UujJ I jj JU3 

Private Sub Command3_Click() 

On Error Resume Next 
Adodcl. Recordset. MovePrevious 
End Sub 

£ 

! i_sxLLo <^-juS I >y>\JI JjSuuuJI jj JU3 

Private Sub Command4_Click() 

On Error Resume Next 
Adodcl. Recordset. MoveLast 
End Sub 

o_yj JLljVI J>J oja LLL3 On Error Resume Next bjLaJI AjLSu Lcx9 js LuL 

«» £ 

.^Jjcxszj jJojl3 cAJI gyolijjJI . LLx> AJLujj LJ V o\LsuuuJI 



: illa ^>ujJi 

: i_sJjLx)v 5 cij 0 ucx ^53 lSJl^ju £_ 3 jjJuuo £ui9l .^oILlJIj oLovSGtJI 3 ^) £uolijjJI I-Ld) 



:(General)>oLsdl /j^ulsUI Aj\JI <-*^l 
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias 
"SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, 
ByVal dwFlags As Long) As Long 

Private Declare Function SFlUpdateRecycleBinlcon Lib "shell32.dll" () As Long 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" 
(ByVal hWndl As Long, ByVal hWnd2 As Long, ByVal Ipszl As String, ByVal 
Ipsz2 As String) As Long 

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, 
ByVal nCmdShow As Long) As Long 

Private Declare Function mciSendString Lib "winmm.dll" Alias 
"mciSendStringA" (ByVal IpstrCommand As String, ByVal IpstrReturnString As 
String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 

:(General) qjls I ^Vl cl^VI '^1 s» 
Public Sub OpenCDDriveDoor(ByVal State As Boolean) 

If State = True Then 

Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&) 

Else 

Call mciSendStringC'Set CDAudio Door Closed", 0&, 0&, 0&) 

End If 
End Sub 

£ 

! i_SvJLLo v_I ^-jciSuoJI ^do-JULl o 

Private Sub Command3_Click() 

Dim hwnd As Long 

hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString) 

ShowWindow hwnd, 0 
End Sub 









































! (_sJjLo ^jlISuoJI oli^JijI J Igjbj jjjil 


Private Sub Command4_Click() 

Dim hwnd As Long 

hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString) 

ShowWindow hwnd, 5 
End Sub 

Private Sub Commandl_Click() 

OpenCDDriveDoor (True) 

End Sub 

: AsI^juuJI JL>i| jjU$ 

Private Sub Command2_Click() 

OpenCDDriveDoor (False) 

End Sub 

: o^jojoJI qLuj £.l>9i jjJ U 3 

Private Sub Command5_Click() 

SFIEmptyRecycleBin Me.hwnd, vbNullString, 0 
SHUpdateRecycleBinl con 
End Sub 
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